home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / reuse.lha / reuse / src / Positions.mi < prev    next >
Text File  |  1992-08-18  |  990b  |  40 lines
  1. (* $Id: Positions.mi,v 1.1 1992/08/13 13:47:25 grosch rel $ *)
  2.  
  3. (* $Log: Positions.mi,v $
  4. # Revision 1.1  1992/08/13  13:47:25  grosch
  5. # increase format in WritePosition
  6. #
  7. # Revision 1.0  1992/08/07  14:42:00  grosch
  8. # Initial revision
  9. #
  10.  *)
  11.  
  12. (* Ich, Doktor Josef Grosch, Informatiker, Juli 1992 *)
  13.  
  14. IMPLEMENTATION MODULE Positions;
  15.  
  16. FROM IO        IMPORT tFile, WriteC, WriteI;
  17.  
  18. PROCEDURE Compare (Position1, Position2: tPosition): INTEGER;
  19.    BEGIN
  20.       WITH Position1 DO
  21.      IF Line   < Position2.Line   THEN RETURN -1; END;
  22.      IF Line   > Position2.Line   THEN RETURN  1; END;
  23.      IF Column < Position2.Column THEN RETURN -1; END;
  24.      IF Column > Position2.Column THEN RETURN  1; END;
  25.      RETURN 0;
  26.       END;
  27.    END Compare;
  28.  
  29. PROCEDURE WritePosition (File: tFile; Position: tPosition);
  30.    BEGIN
  31.       WriteI (File, Position.Line  , 4);
  32.       WriteC (File, ',');
  33.       WriteI (File, Position.Column, 3);
  34.    END WritePosition;
  35.  
  36. BEGIN
  37.    NoPosition.Line    := 0;
  38.    NoPosition.Column    := 0;
  39. END Positions.
  40.